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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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® 
THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. : 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. " 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


APOAIOOOAIOVAIAIAIAAAAIOAIAIAIAIMAIAIAIAIOIL 


eenteneeeeeee ee eee eeaeeaeene 


(AA RRRRBAAARAALASLASLAAL ALES ELALASASESA SESE SESE EEE EER RES R RARER RRA SERA SESS SY 


DEFINE MAXIMUM hd ba SIZES (INCLUDING TRAILING ZERO BYTE) 
PARAMETER MAXSYMS1Z=32,MAXTOKSIZ=16,MAXFAC=2000 
Y ) 


LOGICAL®1 LINE (132) ,NAME (MAXSYMS1 
LOGICAL®1 BREF IX(MAKTOKS1Z) MA O_NAME (MAXTOKSI 
LOGICAL*1 MACRO sur 2)” 

LOGICAL®1 FSPECTBO) OUTLINE C) <LASTPREF IX (MAXTOKSIZ) 
LOGICAL®1 FACILITIES (MAXSYMSIZ,MAXFAC+1) 


COMMON /TERT/ LINE PREFIX. MACRO_NAME , NAME , SYMBOL _NAME , F SPEC 
COMMON /TEXT/ MACRO_SUFFIX 

COMMON /VARS/ NUM,COL, INDEX, CODE,ERRCNT,BINVAL 

COMMON /LOGVAR/ OUTFLAG 

COMMON /OUT/ OUTCOL ,OUTLINE,CURNUM, CURSEV,LASTFACNUM,LASTPREF IX 
COMMON /FACNAMS/ FACIL:TIES 
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